home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Light ROM 3
/
Light ROM 3 - Disc 2.iso
/
programs
/
amiga
/
macromkr
/
adpromac.lha
/
$CUSTOM_LOGO.adpro
< prev
next >
Wrap
Text File
|
1993-08-18
|
2KB
|
81 lines
/* ****************************************************************** */
/* Macro Maker ADPRO AREXX Script */
/* */
/* create 2 pic logo at top */
/* with custom background */
/* ****************************************************************** */
OPTIONS RESULTS
NL = "0A"X
Address 'ADPro'
STRING = '"CREATE A 2 PIC LOGO PAGE"||NL||" AT TOP WITH CUSTOM BG?"'
OKAY2 STRING
IF RC = 0 THEN EXIT
GETBG:
GETFILE '"USE WHICH IMAGE FOR BACKGROUND?"' 'EH0:'
BG = ADPRO_RESULT
IF RC ~= 0 THEN SIGNAL GETBG
SWITCH = 0
STRING = 'DO YOU WANT SHADOWS?"'
OKAY2 STRING
IF RC ~= 0 THEN SWITCH = 1
ELSE SWITCH = 0
LFORMAT "UNIVERSAL"
GETFILES '"SHIFT & PICK 2 IMAGES"' 'EH0:'
LFNAM = ADPRO_RESULT
LOAD WORD(LFnam,1)
IF RC ~= 0 THEN DO
OKAY1 'Could Not Load' LFnam
EXIT
END
ABS_SCALE 280 180
OPERATOR "RECTANGLE" 0 0 280 180 7 255 255 255
SFORMAT 'JPEG'
SAVE "RAM:TEMP1" "RAW" 50
LOAD WORD(LFnam,2)
IF RC ~= 0 THEN DO
OKAY1 'Could Not Load' LFnam
EXIT
END
ABS_SCALE 280 180
OPERATOR "RECTANGLE" 0 0 280 180 7 255 255 255
SFORMAT 'JPEG'
SAVE "RAM:TEMP2" "RAW" 50
LFORMAT "UNIVERSAL"
LOAD BG
IF RC ~= 0 THEN DO
OKAY1 'COULD NOT LOAD' BG
EXIT
END
X = XSIZE
IF X < 752 THEN DO
ABS_SCALE 752 480
END
LFORMAT 'UNIVERSAL'
IF SWITCH = 1 THEN DO
OPERATOR "RECTANGLE" 90 60 280 180 '-1' 0 0 0 50
END
LOAD "RAM:TEMP1" 80 50 100
IF RC ~= 0 THEN DO
OKAY1 'Could Not Load' LFnam
EXIT
END
IF SWITCH = 1 THEN DO
OPERATOR "RECTANGLE" 410 60 280 180 '-1' 0 0 0 50
END
LOAD "RAM:TEMP2" 400 50 100
IF RC ~= 0 THEN DO
OKAY1 'Could Not Load' LFnam
EXIT
END
SFORMAT 'IFF'
GETFILE 'SAVE-FILE'
SFNAM = ADPRO_RESULT
SAVE SFNAM 'RAW'
IF RC ~= 0 THEN DO
OKAY1 'Could Not Save' SFnam
EXIT
END
address command 'delete ram:temp1'
address command 'delete ram:temp2'
EXIT